home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / CLIN_MEN.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  163 lines
  1. ;\|
  2. ;CLIN_MEN.SRC     Translated from CLIN_MEN.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;CLIN_MEN 02:19:35 PM  21/ 4/90   |
  4. define(CHOICE|N|2||)
  5. define(MEM_ALPHA|A|11||)
  6. define(MEM_TYPE|N|2||)
  7. define(TD|S|8||)
  8. define(CTR|N|2||)
  9. open(PATIENT||0|)
  10. open(DIABETIC||0|)
  11. trap(Q|G|EXIT1)
  12. mount(NEW|S)
  13. date(TD|G)
  14. ST:
  15. CHOICE = (0)
  16. MEM_TYPE = (0)
  17. enter(CHOICE||||N|Y|N|||N)
  18. on(CHOICE|G|DIAB;75;NEW;BP;ST;MIN;WELL;ST;AST;THREE;SMOK;PRINT;EXIT1|ST)
  19. DIAB:
  20. run("CHKDIAB")
  21. AST:
  22. run("CHKASTH")
  23. SMOK:
  24. run("CHKSMOK")
  25. 75:
  26. run("CHK75")
  27. NEW:
  28. run("CHKNEW")
  29. BP:
  30. run("CHKBP")
  31. MIN:
  32. run("CHKMIN")
  33. WELL:
  34. run("CHKWELL")
  35. THREE:
  36. run("CHK3")
  37. PRINT:
  38. pmsg("ENTER CHOICE FOR PRINT:"|20|21|Y|N|S|MEM_TYPE)
  39. CHECK_TYPE = (MEM_TYPE)
  40. if CHECK_TYPE = (1) then MEM_ALPHA = ("DIABETIC")
  41. if CHECK_TYPE = (2) then MEM_ALPHA = ("OVER 75")
  42. if CHECK_TYPE = (3) then MEM_ALPHA = ("NEW PATIENT")
  43. if CHECK_TYPE = (4) then MEM_ALPHA = ("BP")
  44. if CHECK_TYPE = (6) then MEM_ALPHA = ("MINOR SURG")
  45. if CHECK_TYPE = (7) then MEM_ALPHA = ("WELL PERSON")
  46. if CHECK_TYPE = (10) then MEM_ALPHA = ("THREE YR")
  47. mount(REP|R|P)
  48. pset(128|24|24)
  49. pchr(P|1)
  50. pfmt(1|||N|N|)
  51. pfmt(2|||N|N|)
  52. CHECK_TYPE = (MEM_TYPE)
  53. CHECK_DATE = (TD)
  54. CTR = (0)
  55. find(M|CHECK_OVER|EXIT|)
  56. goto FIND_PAT
  57. NEXT:
  58. pfmt(3|||N|N|)
  59. CTR = (CTR+1)
  60. NEXT1:
  61. find(N|DIABETIC|EXIT|)
  62. goto FIND_PAT
  63. FIND_PAT:
  64. if CHECK_DATE > (TD) goto EXIT
  65. if CHECK_TYPE <> (MEM_TYPE) goto NEXT1
  66. RECORD.NUMBER = (DIAB_REF)
  67. find(M|RECORD.NUMBER|NEXT1|)
  68. goto NEXT
  69. EXIT:
  70. pvert(20)
  71. pmsg(%14;"TOTAL NUMBER:";CTR|||N|N|P|)
  72. pblnk(3)
  73. mount(NEW|S)
  74. goto ST
  75. EXIT1:
  76. run("recmenu")
  77. \STNEW     
  78.  
  79.  
  80.                                 CLINIC MENU
  81.                         ╔═══════════════════════════╗
  82.                         ║  1.DIABETIC CLINIC        ║
  83.                         ║  2.OVER 75 CLINIC         ║
  84.                         ║  3.NEW PATIENT CLINIC     ║
  85.                         ║  4.BP CLINIC              ║
  86.                         ║  5.NOT USED               ║
  87.                         ║  6.MINOR SURGERY CLINIC   ║
  88.                         ║  7.WELL PERSON CLINIC     ║
  89.                         ║  8.NOT USED               ║
  90.                         ║  9.ASTHMA CLINIC          ║
  91.                         ║ 10.THREE YEAR CHECKS      ║
  92.                         ║ 11.STOP SMOKING CLINIC    ║
  93.                         ║ 12.PRINT TODAYS CLINICS   ║
  94.                         ║ 13.EXIT                   ║
  95.                         ║        ENTER CHOICE:&     ║
  96.                         ╚═══════════════════════════╝
  97.  
  98.  
  99.  
  100.  
  101.  
  102. \
  103. CHOICE
  104. \
  105. \R REP     
  106. &           CLINIC PATIENTS ON :&
  107. ========================================
  108. &                           &                      &                      &           &
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154. \
  155. MEM_ALPHA
  156. TD
  157. PATIENT.NAME
  158. ADDRESS1
  159. AREA
  160. DATE.OF.BIRTH
  161. CHECK_TYPE
  162. \
  163.